1 ' *** OISAC 2 *** EDITEUR-MEM1 ***
10 CLS:P=0:PRINTCHR$(9)"*** OISAC 2 *** EDITEUR-MEM *** ADRESSE :   	    PAGE :";:LOCATE10,1:INPUT@7;A:LOCATE0,0:LOCATE25,1:INPUT@3;P:DEFSEG=P*4096:Z=0:CLS
20 H$="":A$="":FORI=0TO14:D=PEEK(A+I):H$=H$+RIGHT$(HEX$(D),2):IFD<32THEND=46
30 A$=A$+CHR$(D):NEXT
50 CLS:IFZ THEN110
100 PRINT" "H$"  &H"HEX$(A)" &H"RIGHT$(HEX$(P),2)"  ["A$"]";:GOTO120
110 PRINT" "H$"  &H"MID$(H$,3,2)LEFT$(H$,2)" &H"MID$(H$,5,2)" &H"MID$(H$,9,2)MID$(H$,7,2)"  ["MID$(A$,8,8)"]";
120 $=INPUT$(1,@):CLS	
130 IF$="1"OR$="0"THENZ=VAL($):GOTO50
135 IF$="*"THEN10
140 IF$="+"THENA=A+15:GOTO20
145 IF$="-"THENA=A-15:GOTO20
150 IF$="/"THENINPUT"DECALAGE :	",Y:A=A+Y:GOTO20
155 IF$<>"H"THEN160ELSEPRINT"Hexa -> Deci : ";:INPUT@6;Y:IFY<0THENY=65536+Y
156 PRINTY"d":GOTO50
160 IF$="D"THENPRINT"Deci -> Hexa : ";:INPUT@6;Y:PRINT"&H"HEX$(Y):GOTO50
170 BEEP:GOTO50